home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / CLINIC / LISTING3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-16  |  278 b   |  9 lines
  1. {Listing 3}
  2. if FormStyle = fsMDIChild then begin
  3.   { Fake a size message to get MDI to behave }
  4.   if FWindowState = wsMaximized then begin
  5.     SendMessage(Application.MainForm.ClientHandle,
  6.     WM_MDIRESTORE, Handle, 0);
  7.     ShowWindow(Handle, SW_SHOWMAXIMIZED);
  8.   end
  9.